home *** CD-ROM | disk | FTP | other *** search
/ Exploring Aeronautics / NASA Exploring Aeronautics.iso / pc / source / activ.dxr / 00001_main.ls next >
Encoding:
Text File  |  1998-06-02  |  398 b   |  16 lines
  1. global gMain, gSoundManager, gButtonManager, gMovie, gModule5, gActivity
  2.  
  3. on startMovie
  4.   initMain()
  5.   mClearButtons(gButtonManager)
  6.   mAddButton(gButtonManager, 35, "nasabutton", "mGoToMovie(gMain, #main)")
  7.   mWaitForSound(gSoundManager)
  8.   set gActivity to new(script "activityObjectScript")
  9.   put gActivity
  10.   mSetMovieLoc(gMovie, point(196, 234))
  11. end
  12.  
  13. on stopMovieScript
  14.   mdispose(gModule5)
  15. end
  16.